home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / demos / scicos / scicos.dem < prev    next >
Text File  |  1999-09-16  |  965b  |  46 lines
  1. mode(-1)
  2. demos_name=[
  3.     'Thermostat'
  4.     'Continuous Plant discrete controller'
  5.     'Simple demo'
  6.     'Bouncing ball'
  7.     'Table lookup example'
  8.     'Threshold'
  9.     'Scilab Block']
  10.  
  11. while %t do
  12.   n=x_choose(demos_name,'Choose a demo')
  13.   select n
  14.   case 0 then 
  15.     break
  16.   case 1 then  
  17.     exec('SCI/demos/scicos/demo1.cosf',-1)
  18.     scicos(x);
  19.   case 2 then  
  20.     exec('SCI/demos/scicos/demo2.cosf',-1)
  21.     scicos(x);
  22.   case 3 then  
  23.     exec('SCI/demos/scicos/demo3.cosf',-1)
  24.     scicos(x);
  25.   case 4 then  
  26.     exec('SCI/demos/scicos/demo4.cosf',-1)
  27.     scicos(x);
  28.   case 5 then  
  29.     exec('SCI/demos/scicos/demo5.cosf',-1)
  30.     scicos(x);
  31.   case 6 then  
  32.     xset('window',10)
  33.     p10=xget('wpos')
  34.     xset('wpos',p10(1),0)
  35.     p10=xget('wpos')
  36.     d10=xget('wdim')
  37.     xset('window',11)
  38.     xset('wpos',p10(1),d10(2))
  39.     exec('SCI/demos/scicos/demo6.cosf',-1)
  40.     scicos(x);
  41.   case 7 then  
  42.     exec('SCI/demos/scicos/demo7.cosf',-1)
  43.     scicos(x);
  44.   end
  45. end
  46.